unit MenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Buttons, ComCtrls, Menus, XPMan, ToolWin,
  ExtCtrls, jpeg;

type
  TfrmMenuPrincipal = class(TfrmBase)
    btnClientes: TBitBtn;
    btnReclamos: TBitBtn;
    btnTecnicos: TBitBtn;
    btnContactos: TBitBtn;
    btnMaquinas: TBitBtn;
    btnReparaciones: TBitBtn;
    btnMantenimiento: TBitBtn;
    btnSalir: TBitBtn;
    Image1: TImage;
    procedure btnClientesClick(Sender: TObject);
    procedure btnTecnicosClick(Sender: TObject);
    procedure btnSalirClick(Sender: TObject);
    procedure btnMaquinasClick(Sender: TObject);
    procedure btnContactosClick(Sender: TObject);
    procedure btnMantenimientoClick(Sender: TObject);
    procedure btnReclamosClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnReparacionesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMenuPrincipal: TfrmMenuPrincipal;

implementation

uses BaseListado, Clientes, Tecnicos, Maquinas, Contactos, Mantenimiento,
  Reclamos, Datos, Reparaciones;

{$R *.dfm}

procedure TfrmMenuPrincipal.btnClientesClick(Sender: TObject);
begin
  inherited;
  frmClientes.ShowModal;
end;

procedure TfrmMenuPrincipal.btnTecnicosClick(Sender: TObject);
begin
  inherited;
  frmTecnicos.ShowModal;
end;

procedure TfrmMenuPrincipal.btnSalirClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmMenuPrincipal.btnMaquinasClick(Sender: TObject);
begin
  inherited;
  frmMaquinas.ShowModal;
end;

procedure TfrmMenuPrincipal.btnContactosClick(Sender: TObject);
begin
  inherited;
  frmContactos.ShowModal;
end;

procedure TfrmMenuPrincipal.btnMantenimientoClick(Sender: TObject);
begin
  inherited;
  frmMantenimiento.ShowModal;
end;

procedure TfrmMenuPrincipal.btnReclamosClick(Sender: TObject);
begin
  inherited;
  frmReclamos.ShowModal;
end;

procedure TfrmMenuPrincipal.FormShow(Sender: TObject);
begin
  inherited;
  frmDatos.qryFiltroClientes.Connection:= frmDatos.ZConnection1;
  frmDatos.qryFiltroClientes.SQL.Clear;
  frmDatos.qryFiltroClientes.SQL.Text:='select * from clientes where cliente_activo=true';
  frmDatos.qryFiltroClientes.Open;

  frmDatos.qryFiltroTecnico.Connection:= frmDatos.ZConnection1;
  frmDatos.qryFiltroTecnico.SQL.Clear;
  frmDatos.qryFiltroTecnico.SQL.Text:='select * from tecnico where activo=true';
  frmDatos.qryFiltroTecnico.Open;
end;

procedure TfrmMenuPrincipal.btnReparacionesClick(Sender: TObject);
begin
  inherited;
  frmReparaciones.ShowModal;
end;

end.
